---
title: "Chromatogram Optimization"
output:
    flexdashboard::flex_dashboard:
        navbar:
            - { title: "Home", 
                href: "../../site/_site/hdl.html", 
                align: left }
        source_code: embed
        vertical_layout: scroll
        orientation: rows
---

```{r setup, include=FALSE}
knitr::opts_chunk$set(echo = F, warning =F, error = F, message=F)
```

```{r, packages}
pkgs = c('plyr', 'dplyr','stringr','reshape2','tibble', 'plotly', 'DT',
         'limma','ggplot2','ggsci', "plotly", "RColorBrewer", "heatmaply")
for(pkg in pkgs){
    library(pkg, quietly=TRUE, verbose=FALSE, warn.conflicts=FALSE, 
            character.only=TRUE)
}
```

```{r}
load("cmg_explor.Rdata")
```

Row {data-height=650}
-------------------------------------

```{r}
df = lghdl_mat %>%
    as.data.frame %>%
    rownames_to_column("upper") %>%
    melt(id.var = "upper", variable.name = "lower")
```

###

```{r}
heatmaply(lghdl_mat, 
          colors = colorRampPalette(colors = rev(brewer.pal(11,"RdBu")))(100), 
          Rowv = F, 
          Colv = F)
```

###

```{r}
plot_ly(x = colnames(lghdl_mat), y = rownames(lghdl_mat), z = lghdl_mat) %>%
    add_surface()
```